home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / password.sc_ / password.bin
Text File  |  1994-04-19  |  1KB  |  28 lines
  1. {PASSWORD.ACT}
  2.  
  3. {This file asks the user for a password, then checks it for correctness.   }
  4. {The user then has three chances to enter the correct password.  To use    }
  5. {this file, simply copy it into your own Script or Action file.  This      }
  6. {Action file uses a built-in password.  PARPASS.ACT uses a password which  }
  7. {is passed as a parameter by the calling program.}
  8.  
  9. @C=0                              {Set counter of attempts to 0}
  10.  
  11. :Loop1
  12. @C=EXPR(@C+1)                     {Increment number of attempts}
  13. IF (@C > 3) GOTO :Rejected        {If too many attempts, exit}
  14. @a=PROMPT("Enter password: ");    {Get password from user}
  15. IF(@a <> "pass3876") GOTO :Loop1  {If built-in password not matched, retry}
  16.  
  17. {If password is correct, execution will "fall through" to this step}
  18. GOTO :PassWordOK                  {Jump to end}
  19.  
  20. {If password is incorrect, execution jumps to this step}
  21. :Rejected
  22. TYPE("Incorrect password entered.  Hanging up.")
  23. HANGUP                            {Tell BitCom to hang up}
  24. "AT0$0d"                          {Tell modem to hang up}
  25.  
  26. :PassWordOK
  27. {Normal execution continues below}
  28.